Option Explicit
'OҲ ChartEventCls
Public WithEvents myCht As Chart
Private Sub myCht_MouseUp(ByVal Button As Long, _
                          ByVal Shift As Long, _
                          ByVal x As Long, _
                          ByVal y As Long)
    Dim mystr As String
    Select Case Shift
        Case 0
        Case 1: mystr = "Shift +"
        Case 2: mystr = "Ctrl +"
        Case 4: mystr = "Alt +"
    End Select
    Select Case Button
        Case xlNoButton: mystr = mystr & ""
        Case xlPrimaryButton: mystr = mystr & "Ĥ@"
        Case xlSecondaryButton: mystr = mystr & "ĤG"
    End Select
    mystr = mystr & "Q}F" & vbCrLf
    mystr = mystr & "ƹЪyЬX:=" & x & "Y:=" & y & "C"
    MsgBox mystr
End Sub

'зǼҲ
Dim myChtCls As New ChartEventCls
Sub InitializeChartEvent()
    Set myChtCls.myCht = Worksheets(1).ChartObjects(1).Chart
End Sub
